home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / demos / proj3013.exe / TRACKING.XL$ / TRACKING.bin (.txt)
Excel Spreadsheet  |  1992-02-28  |  26KB  |  124 lines
  1. Sheet: 
  2. (0, 0)        Names
  3. (0, 1)        Commands
  4. (0, 2)        Comments
  5. (0, 3)        
  6. (0, 4)        
  7. (0, 5)        
  8. (0, 6)        385
  9. (0, 7)        79
  10. (0, 8)        Work Tracking Macro
  11. (0, 9)        
  12. (1, 0)        MacroSheet
  13. (1, 2)        Names the sheet "MacroSheet", so users can change the name from TRACKING.XLM.
  14. (1, 3)        1
  15. (1, 4)        286
  16. (1, 5)        6
  17. (1, 6)        88
  18. (1, 8)        OK
  19. (2, 2)        
  20. (2, 3)        21
  21. (2, 4)        160
  22. (2, 5)        55
  23. (2, 6)        100
  24. (2, 7)        50
  25. (2, 8)        r3c11:r6c11
  26. (2, 9)        2
  27. (2, 10)        Days
  28. (2, 11)        Minutes
  29. (2, 12)        All Resources
  30. (3, 2)        Creates a new Microsoft Excel spreadsheet; adds titles and formatting for the titles
  31. (3, 3)        21
  32. (3, 4)        160
  33. (3, 5)        31
  34. (3, 6)        100
  35. (3, 7)        50
  36. (3, 8)        r3c12:r6c12
  37. (3, 9)        2
  38. (3, 10)        Weeks
  39. (3, 11)        Hours
  40. (4, 2)        
  41. (4, 3)        5
  42. (4, 4)        10
  43. (4, 5)        54
  44. (4, 8)        Timescale:
  45. (4, 10)        Months
  46. (4, 11)        Days
  47. (5, 2)        
  48. (5, 3)        2
  49. (5, 4)        286
  50. (5, 5)        30
  51. (5, 6)        88
  52. (5, 8)        Cancel
  53. (5, 10)        Years
  54. (5, 11)        Weeks
  55. (6, 0)        Spreadsheet
  56. (6, 2)        Names the new sheet "Spreadsheet".
  57. (6, 3)        5
  58. (6, 4)        10
  59. (6, 5)        32
  60. (6, 8)        Work Units:
  61. (7, 3)        5
  62. (7, 4)        10
  63. (7, 5)        10
  64. (7, 8)        Resource:
  65. (8, 3)        21
  66. (8, 4)        100
  67. (8, 5)        8
  68. (8, 6)        160
  69. (8, 7)        108
  70. (8, 8)        ResourceList
  71. (8, 9)        1
  72. (29, 2)        Redraws the spreadsheet.
  73. (32, 0)        DDEChannel1
  74. (32, 2)        Gets the name of the active project in Microsoft Project on the system channel, and closes the system channel.
  75. (33, 0)        ActiveProj
  76. (33, 2)        If there is no project open, the macro ends here.
  77. (42, 0)        DDEChannel2
  78. (42, 2)        Opens DDE communication on the active project ("ActiveProj" from the last section).  Gets general project information and places it on the sheet (project name, project start date, project finish date).
  79. (43, 0)        NumTasks
  80. (43, 2)        Checks to see that there are both tasks and resources in the project.
  81. (44, 0)        NumResources
  82. (56, 0)        ProjStart
  83. (56, 2)        Fills in the project data on the report.
  84. (57, 0)        ProjFinish
  85. (74, 0)        ListSep
  86. (81, 0)        
  87. (85, 0)        
  88. (88, 2)        Displays dialog box asking user for their preferences.
  89. (90, 0)        
  90. (90, 2)        Changes ProjStart and ProjFinish to user dates, if they changed them.  Also sets Default Work Units, based on user input, and defines ProjResources as either all resources or selected resources.
  91. (96, 0)        
  92. (96, 2)        Creates an array called ProjResources of all of the resources in the active project.  The array contains the Unique ID and the Name for each resource.
  93. (99, 2)        This section sets up the timescale across the top of the sheet.  Depending on what timescale unit is chosen, the start date for the timescale is calculated and is prior to the project start date.
  94. (100, 2)        DATA.SERIES fills the timescale to match the time period specified.
  95. (101, 2)        This sets the titles for the Work columns.
  96. (111, 2)        Redraws the spreadsheet.
  97. (114, 2)        Sets up Microsoft Project with the proper view. 
  98. (116, 2)        Change_Timescale is a string sent to Microsoft Project using SendKeys to set up the appropriate timescale.
  99. (126, 2)        Redraws the spreadsheet.
  100. (129, 2)        Sets up 2 arrays for each resource -- Res# and ResAssmtData#. 
  101. (131, 0)        
  102. (132, 0)        
  103. (132, 2)        Res# is an array of the Names and ID's for every task to which the resource is assigned.  The ID is needed for EditGoTo in Microsoft Project. 
  104. (133, 0)        
  105. (133, 2)         ResAssmtData# is an array containing the Task and Resource Unique ID's, Work, and Actual Work.
  106. (137, 0)        Rows
  107. (137, 2)        Populates the spreadsheet with the array data.  Also adds formulas to calculate total actual work and work.
  108. (158, 2)        Redraws the spreadsheet.
  109. (161, 2)        This section cycles through the resources and tasks, copying and pasting the resource usage data on a resource by task basis.
  110. (163, 2)        After the information is in the spreadsheet, the data that is not actual workis erased, so that the resource usage data in Microsoft Excel reflects actual work only.
  111. (165, 2)        At the end, the DDE conversation is terminated.
  112. (197, 2)        Formats the spreadsheet.
  113. (237, 2)        Creates the Update button on the spreadsheet.
  114. (241, 2)        This section locks the cells with formulas in them.
  115. (247, 2)        Copies all of the resource arrays to the spreadsheet since they are needed for the Update section of the macro.
  116. (254, 0)        
  117. (263, 2)        Update section.  This removes protection from the document, finds out if Microsoft Project is running, and if the file that created the worksheet is available.  It then initiates a DDE conversation with the source spreadsheet.
  118. (264, 2)        Unprotects the spreadsheet and starts a DDE conversation with Microsoft Project.
  119. (267, 0)        DDEChannel
  120. (273, 2)        Moves the resource arrays to the macro sheet.
  121. (285, 0)        Rows2
  122. (285, 2)        This cycles through the cells, comparing the last value from Microsoft Project with the value in the cells.  If they are not equal, the new values are poked to Microsoft Project.
  123. (300, 2)        Protects the spreadsheet.
  124.